home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / EARTHQUEST™ TOUR Demo / EARTHQUEST™ tour / EARTHQUEST™ tour / background_10897.txt < prev    next >
Encoding:
Text File  |  1990-08-03  |  9.3 KB  |  457 lines
  1. -- background: 10897 from stack: in
  2. -- bmap block id: 11200
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: c
  6. ----- HyperTalk script -----
  7.  
  8.  
  9. --on idle
  10. put 1 into counto
  11. repeat with x = 1 to the number of btns
  12.   if the name of btn x contains "goto" then
  13.     set the icon of btn x to 27441
  14.     add 1 to counto --sets up variable to determine wait time
  15.     wait (30-counto)
  16.     set the icon of btn x to 20684
  17.  
  18.   end if
  19.  
  20. end repeat
  21. pass idle
  22. end idle
  23.  
  24. on closecard
  25.   if the  visible of field "label checker" is true then
  26.     labels
  27.   end if
  28.   pass closecard
  29. end closecard
  30.  
  31.  
  32. on buildit commando, whichway, obj1, obj2, obj3, obj4, obj5, obj6
  33.   --makes for easy construction of object hide and show routines
  34.  
  35.   Put return & return & return&"on"&&commando&return&"lock screen"&return after cd field gather
  36.  
  37.   if obj1 is not empty then put whichway&&obj1 & return after cd fld gather
  38.   if obj2 is not empty then put whichway&&obj2 & return after cd fld gather
  39.   if obj3 is not empty then put whichway&&obj3 & return after cd fld gather
  40.   if obj4 is not empty then put whichway&&obj4 & return after cd fld gather
  41.   if obj5 is not empty then put whichway&&obj5 & return after cd fld gather
  42.   if obj6 is not empty then put whichway&&obj6 & return after cd fld gather
  43.   Put "unlock screen with visual dissolve"&return&"end"&&commando after cd fld gather
  44. end buildit
  45. on hidehouse1
  46.   lock screen
  47.   hide bg btn house1bg
  48.   hide bg btn house2bg
  49.   hide cd fld house1
  50.   unlock screen with visual dissolve
  51. end hidehouse1
  52.  
  53. on showtools  --- shows tool fields for build it routine
  54.   lock screen
  55.   show  cd fld sender
  56.   --show  btn gathercontrol
  57.   show btn sendercontrol
  58.   show cd fld gather
  59.   unlock screen with visual dissolve
  60. end showtools
  61.  
  62.  
  63. on hidetools  ---hides  tool fields for build it routine
  64.   lock screen
  65.   hide  cd fld sender
  66.   --hide  btn gathercontrol
  67.   hide btn sendercontrol
  68.   hide cd fld gather
  69.   unlock screen with visual dissolve
  70. end hidetools
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81. -- part 1 (field)
  82. -- low flags: 01
  83. -- high flags: 0000
  84. -- rect: left=115 top=22 right=42 bottom=361
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 21
  89. -- text size: 14
  90. -- style flags: 256
  91. -- line height: 18
  92. -- part name: Title
  93.  
  94.  
  95. -- part 43 (button)
  96. -- low flags: 00
  97. -- high flags: 0000
  98. -- rect: left=475 top=55 right=69 bottom=506
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: 
  107. ----- HyperTalk script -----
  108. on mouseup
  109.  
  110.   right
  111. end mouseup
  112.  
  113.  
  114.  
  115. -- part 52 (button)
  116. -- low flags: 00
  117. -- high flags: 0000
  118. -- rect: left=411 top=54 right=68 bottom=442
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: leftarrow
  127. ----- HyperTalk script -----
  128. on mouseup
  129.   visual scroll right
  130.   go prev
  131. end mouseup
  132. on mousedown
  133. end mousedown
  134.  
  135.  
  136. -- part 53 (button)
  137. -- low flags: 00
  138. -- high flags: 0000
  139. -- rect: left=411 top=54 right=68 bottom=442
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: left arrow
  148. ----- HyperTalk script -----
  149. on mouseup
  150.   left
  151. end mouseup
  152.  
  153.  
  154.  
  155. -- part 56 (field)
  156. -- low flags: 81
  157. -- high flags: 0000
  158. -- rect: left=10 top=9 right=32 bottom=59
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 0
  162. -- font id: 3
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: label checker
  167.  
  168.  
  169. -- part 60 (button)
  170. -- low flags: 00
  171. -- high flags: 0000
  172. -- rect: left=447 top=50 right=74 bottom=471
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 22642 / 22642
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: totop
  181. ----- HyperTalk script -----
  182. on mouseup
  183.   visual zoom out
  184.   toptop
  185.  
  186. end mouseup
  187.  
  188.  
  189. -- part 62 (button)
  190. -- low flags: 00
  191. -- high flags: 0000
  192. -- rect: left=149 top=322 right=340 bottom=217
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 1
  196. -- font id: 0
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: movies
  201. ----- HyperTalk script -----
  202. MOVIES MOVIES MOVIES
  203. on mousedown
  204.  
  205.  
  206.   get TKpopMenu ("movies",151,129)
  207.  
  208.   if it = "" then
  209.  
  210.     exit mousedown
  211.   end if
  212.   put item 1 of it into theMenu
  213.   put item 2 of it into theItem
  214.  
  215.  
  216.   put word 1 of theItem into showtime
  217.   -- Note:  this will process each menu item (even hierarchical)
  218.   tkshowpict "present",150,10
  219.   do showtime
  220. end mousedown
  221.  
  222.  
  223.  
  224. -- part 63 (button)
  225. -- low flags: 00
  226. -- high flags: 0000
  227. -- rect: left=77 top=322 right=340 bottom=145
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 1
  231. -- font id: 0
  232. -- text size: 12
  233. -- style flags: 0
  234. -- line height: 16
  235. -- part name: info
  236. ----- HyperTalk script -----
  237.  
  238. on mousedown
  239.  
  240.  
  241.   --adding table name to popup list
  242.  
  243.   put  the short name of this card&&"menu"  into zaper
  244.   put TKdoTEXT (zaper) after selections
  245.   put 328-(17*(the number of lines in selections))into vvv
  246.   get TKpopMenu (selections,78,vvv,"true")
  247.   put item 1 of it into theMenu
  248.   put item 2 of it into theItem
  249.   if it = "" then
  250.     exit mousedown
  251.   end if
  252.  
  253.   put item 1 of it into theMenu
  254.   put item 2 of it into theItem
  255.   tkhelp (the short name of this card), "mnu,txt,scl,pic,open,opt,left14,top32,wide230,high274", "Menu","","","","",theItem
  256. end mousedown
  257.  
  258.  
  259.  
  260.  
  261. -- part 64 (button)
  262. -- low flags: 00
  263. -- high flags: 0000
  264. -- rect: left=5 top=322 right=340 bottom=73
  265. -- title width / last selected line: 0
  266. -- icon id / first selected line: 0 / 0
  267. -- text alignment: 1
  268. -- font id: 0
  269. -- text size: 12
  270. -- style flags: 0
  271. -- line height: 16
  272. -- part name: Index
  273. ----- HyperTalk script -----
  274. INDEXtest
  275. on mousedown
  276.  
  277.  
  278.   global indexo
  279.  
  280.   Get TKpopMenu ("index",6,43,)
  281.  
  282.   if it = "" then
  283.  
  284.     exit mousedown
  285.   end if
  286.  
  287.   put item 1 of it into theMenu
  288.   put item 2 of it into theItem
  289.  
  290.   get tkdotext ("earth")
  291.   if it contains theItem then
  292.     go to card theITem of stack "earth"
  293.   end if
  294.   get tkdotext ("Journey")
  295.   if it contains theItem then
  296.     go to card theITem of stack "Journey"
  297.   end if
  298.   get tkdotext ("People")
  299.   if it contains theItem then
  300.     go to card theITem of stack "people"
  301.   end if
  302.  
  303. end mousedown
  304.  
  305.  
  306.  
  307. -- part 65 (button)
  308. -- low flags: 00
  309. -- high flags: 0000
  310. -- rect: left=221 top=322 right=340 bottom=289
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 0 / 0
  313. -- text alignment: 1
  314. -- font id: 0
  315. -- text size: 12
  316. -- style flags: 0
  317. -- line height: 16
  318. -- part name: quotes
  319. ----- HyperTalk script -----
  320. QUOTES QUOTES QUOTES
  321. on mousedown
  322.   get TKpopMenu ("QUOTATIONS MENU",222,1,)
  323.   if it = "" then
  324.  
  325.     exit mousedown
  326.   end if
  327.   put item 1 of it into theMenu
  328.   put item 2 of it into theItem
  329.   tkhelp "QUOTATIONS", "mnu,txt,scl,pic,open,opt,left14,top32,wide230,high230", "Menu","","","","",theItem
  330.  
  331. end mousedown
  332.  
  333.  
  334. -- part 66 (button)
  335. -- low flags: 00
  336. -- high flags: 0000
  337. -- rect: left=293 top=322 right=340 bottom=362
  338. -- title width / last selected line: 0
  339. -- icon id / first selected line: 0 / 0
  340. -- text alignment: 1
  341. -- font id: 0
  342. -- text size: 12
  343. -- style flags: 0
  344. -- line height: 16
  345. -- part name: sounds
  346. ----- HyperTalk script -----
  347. SOUNDS SOUNDS SOUNDS
  348. on mouseDown
  349.  
  350.   Get TKpopMenu("Sounds",295,97,true,busy)
  351.   if it = "" then exit mouseDown
  352.   put item 1 of it into theMenu
  353.   put item 2 of it into theItem
  354.  
  355.   play theitem
  356.   wait until the sound is "done"
  357.   wait 15
  358.  
  359. end mouseDown
  360.  
  361.  
  362.  
  363. -- part 67 (button)
  364. -- low flags: 00
  365. -- high flags: 0000
  366. -- rect: left=366 top=322 right=340 bottom=434
  367. -- title width / last selected line: 0
  368. -- icon id / first selected line: 0 / 0
  369. -- text alignment: 1
  370. -- font id: 0
  371. -- text size: 12
  372. -- style flags: 0
  373. -- line height: 16
  374. -- part name: options
  375. ----- HyperTalk script -----
  376.  
  377. on mousedown
  378.   global theitem
  379.   get TKpopMenu (options,367,210)
  380.   if it = "" then
  381.     exit mousedown
  382.   end if
  383.   put item 1 of it into theMenu
  384.   put item 2 of it into theItem
  385.  
  386.   global wherefrom -- a global anchor for workshop nav
  387.   put the long name of this card into wherefrom
  388.   if theItem = "Copy art to Workshop" then
  389.     set userlevel to 3
  390.     choose select tool
  391.     doMenu "Select all"
  392.  
  393.     doMenu "copy picture"
  394.     go to last card of stack workshop
  395.     doMenu "new card"
  396.     doMenu "paste picture"
  397.     choose browse tool
  398.     opencard
  399.   end if
  400.   if theItem = "Mystery Tour" then
  401.     push card
  402.     go to stack "Mystery Tour"
  403.     set userlevel to 2
  404.   end if
  405.  
  406.   if theItem = "Copy card to Workshop" then
  407.     set userlevel to 3
  408.     push card
  409.     Workshop
  410.   end if
  411.  
  412.   if theItem = "Help" then
  413.     push card
  414.     visual zoom out
  415.     go to card id 80705 of stack earth
  416.   end if
  417.  
  418.   if theItem = "Quit" then
  419.     DoMenu "Quit Hypercard"
  420.   end if
  421.  
  422.   if theItem = "Print Card" then
  423.     DoMenu "Print Card"
  424.   end if
  425.   if theItem = "Go to Workshop" then
  426.  
  427.     push card
  428.     Go to stack "Workshop"
  429.     set the userlevel to 3
  430.   end if
  431.  
  432.  
  433. end mousedown
  434.  
  435.  
  436.  
  437. -- part 68 (button)
  438. -- low flags: 00
  439. -- high flags: 0000
  440. -- rect: left=439 top=322 right=340 bottom=507
  441. -- title width / last selected line: 0
  442. -- icon id / first selected line: 0 / 0
  443. -- text alignment: 1
  444. -- font id: 0
  445. -- text size: 12
  446. -- style flags: 0
  447. -- line height: 16
  448. -- part name: labels
  449. ----- HyperTalk script -----
  450. LABELS LABELS LABELS
  451. on mousedown
  452.  
  453.   labels
  454.  
  455. end mousedown
  456.  
  457.